ActiveForm, Drag and Drop souboru

Otázka od: Suky

18. 11. 2004 23:51

Dobry den,

snazim se o vytvoreni ActiveForm aplikace pro Internet Explorer, ktery ma
jednu
funkci, umoznovat pretazeni souboru z pruzkumnika do TListView.

Vytvoril jsem si proceduru:

procedure WMDROPFILES(var Message: TWMDROPFILES); message WM_DROPFILES;

Napred jsem zkusil v OnCreate registrovat ActiveForm pro prijem souboru
metodou:

DragAcceptFiles(Handle, True);

Bohuzel mi to nefungovalo a tak jsem jeste pouzil zpusob:

procedure TEasyUploader.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Exstyle := Params.Exstyle + WS_EX_ACCEPTFILES;
end;

...... bohuzel taky bez uspechu. Pokazde kdyz pretahuji soubory na ActiveForm,
pretahne si to k sobe Internet Explorer.

Snazil jsem se hledat pomoc na googlu a vysledkem je, ze jsem prosel
neuveritelne mnozstvi stranek, kde se porad dokolecka popisuji vsechny
zpusoby,
ktere jsem vyzkousel, ale o ActiveForm a Drag & Drop jsem se nikde nedocetl.

Jste ma posledni nadeje.

Software: Delphi5

--
S pozdravem,
Michal Soukup
suky@atlas.cz

Odpovedá: Libor Janecek

19. 11. 2004 11:17

Vyzkousej VirtualShellTools

Libor